#!/usr/bin/perl
use strict;
use warnings;


my (@words, @goodWords, $nbLigne, @lignes);
$nbLigne=0;
@words = ();
@goodWords = ();
@lignes = ();

while (my $ligne = <STDIN>){
	if($ligne=~ /(effectu.*mesure.)/) {
		#print $1."\n";
		@words = split(/\s/,$1);
		if (@words <= 5) {
		    push @goodWords, $1;
		    push @lignes, $nbLigne;
		}
	}
	$nbLigne++;
}

my $i;
for ($i=0; $i < @goodWords; $i++) {
    printf $goodWords[$i]." ".$lignes[$i]." \n";
} 
